
		INTEGER*2  S(2000)
		DIMENSION SS(2000),FILE1(200)
		CHARACTER*21  FILE1,FILE2
		WRITE(*,*)'XINGCHENGWENJIANMING:'
		READ(*,*)FILE2
 		OPEN(2,FILE=FILE2,ACCESS='DIRECT',RECL=2240,STATUS='NEW')
		open(3,file='FILEZONG',status='OLD')
		READ(3,1000)(FILE1(III),III=1,105)
		CLOSE(3)
		DO 45 III=1,105
		WRITE(*,1001)FILE1(III) 
		OPEN(1,FILE=FILE1(III),STATUS='OLD')
		DO 40 I=1,120
		S(I)=0
40		CONTINUE
 		S(58)=1000
		S(59)=2000
		DO 1 I=121,1120
		READ(1,*) SS(I)
		S(I)=INT(SS(I)*50)
1		CONTINUE
		CLOSE(1)
		WRITE(2,REC=III)(S(I),I=1,1120)
45		CONTINUE
		CLOSE(unit=2,status='keep')
1000		FORMAT(A21)
1001		format(1x,a21)
		END
				
		